home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Define / Performance / def-tuning < prev   
Text File  |  1998-10-23  |  3KB  |  124 lines
  1. def-tuning
  2.  
  3. Microtonalities can be realized in two ways: as microtuned tonalities or using a tuning class. These two can co-exist. When evaluating examples reset compiler before, or use eval buffer. Microtuned Tonalities can be realized manually in several ways:
  4.  
  5. (create-tonality agricola-monochord
  6.     '(1/1 135/128 9/8 1215/1024 81/64 4/3 45/32 3/2 405/256 27/16 16/9 243/128))
  7.  
  8. (create-tonality just-major 
  9.    (cents-to-freqs '(0 112 294 498 702 814 996)))
  10.  
  11. Activating
  12.  
  13. (activate-tonality (agricola-monochord c 4 1000))
  14. (activate-tonality (just-major c 4 1000))
  15. (activate-tonality (direct-control c 4 1000))
  16.  
  17. Microtuned tonalities can be realized also by equal-tempered function. This creates octave with 24 equal-size steps.
  18.  
  19. (activate-tonality (equal-tempered 24 'c 4 1000))
  20.  
  21. You can also use non-octave divisions. Here you create a tuning that has 11 steps in range of frequency 4/1 which is two octaves. 
  22.  
  23. (activate-tonality (equal-tempered 11 'c 4 2000 '4/1))
  24.  
  25. Example
  26.  
  27. (def-section a
  28.    default
  29.       zone '(2/1)
  30.       tonality (activate-tonality (equal-tempered 24 'c 4 1000))
  31.       length '(1/8)
  32.       duration '(1/4t)
  33.       velocity '(64)
  34.    piano
  35.       symbol '(a b c d e f g h   i j k l m n o p)
  36. )
  37.  
  38. (play-file "tunings"
  39.    piano '(a)
  40. )
  41.  
  42. ============
  43. Tuning Class
  44. ============
  45.  
  46. (def-symbol
  47.    violin '(a b b d c d)
  48. )
  49.  
  50. (def-tuning
  51.    violin '(0 -3000 0 3000 0 0)
  52. )
  53.  
  54. (def-length
  55.    violin '(1/4 1/4 1/4 1/4 1/4 1/4)
  56. )
  57.  
  58. You have to use non-overlapping or non maximum length durations otherwise the last one of the two contacting notes is removed and you don't hear it. Use duration or legato expression to adjust durations.
  59.  
  60. (def-duration
  61.    violin '(1/5 1/5 1/5 1/5 1/5 1/5)
  62. )
  63.  
  64. (def-velocity
  65.    violin '(60 30 50 20 20 10)
  66. )
  67.  
  68. (def-zone
  69.    violin (make-zone (length-of violin))
  70. ) 
  71.  
  72. (def-tonality
  73.    default (activate-tonality (chromatic c 5))
  74. ) 
  75.  
  76. (compile-instrument "ccl;output:" "violin"
  77.    violin
  78. )
  79.  
  80. Fractal & Chaotic Tunings
  81.  
  82. Another interesting area to explore are steps determined by fractal and chaos equations. For example, here the bifurgation points (24) of feigenbaum chaotic equation are scaled to octave and the rationalized results (frequency relations) are used to define the steps of a feigenbaum tonality.
  83.  
  84. (create-tonality feigenbaum
  85.    (mapcar 'rationalize
  86.            (vector-to-list
  87.             (vector-scale 
  88.               (get-ratio '1/1 :ratio) (get-ratio '2/1 :ratio)
  89.               (subrange 143 24 (gen-feigenbaum 2.63 256 0.005 0.1))))))
  90.  
  91. Activation
  92.  
  93. (activate-tonality (feigenbaum c 4 2000))
  94.  
  95. The result is a set of pitches which don't grow eventually, but  follow the bifurgation point, which goes like this:
  96.  
  97.        .
  98.      .
  99.  . .
  100. . . 
  101.     .
  102.       .
  103.         .
  104.  
  105. Hint: Use (sort x '<) if you want the steps in growing order.
  106.  
  107. Playing a 24 step feigenbaum scale:
  108.  
  109. (def-section a
  110.    default
  111.       zone '(1/1)
  112.       tonality (activate-tonality (feigenbaum c 4 2000))
  113.       length '(1/24)
  114.       duration '(1/25)
  115.       velocity '(64)
  116.    piano
  117.       symbol '(a b c d e f g h i j k l 
  118.                m n o p q r s t u v x y)
  119. )
  120.  
  121. (play-file "feigenbaum"
  122.    piano '(a)
  123. )
  124.